home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / 1st_b110.zip / $$PCP.SCR < prev    next >
Text File  |  1993-01-26  |  467b  |  32 lines
  1. :START
  2.  
  3. TRANSMIT "ATDT @API$(105)^M"
  4. WAITFOR "CONNECT|BUSY" 30
  5. IF FOUND=1 GOTO LOGIN
  6. PAUSE 1
  7. GOTO START
  8.  
  9. :LOGIN
  10. TRANSMIT "@D^M"
  11. WAITFOR "TELENET" 5
  12. IF FOUND=1 GOTO OK
  13. GOTO LOGIN
  14.  
  15. :OK
  16. WAITFOR "TERMINAL=" 30
  17. TRANSMIT "D1^M"
  18.  
  19. :CITY
  20. WAITFOR "@" 20
  21. TRANSMIT "C D/@API$(108)/24,@API$(106)^M"
  22. WAITFOR "PASSWORD =" 20
  23. TRANSMIT "@API$(107)^M"
  24. WAITFOR "CONNECTED|BUSY"
  25. IF FOUND=1 GOTO DIAL
  26. GOTO CITY
  27.  
  28. :DIAL
  29. SET_API(156)=0
  30. SET_API(171)=-1
  31. PAUSE 5
  32.